home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza 7 / Shareware Extravaganza 8 (Most Significant Bits) (Disc 7).iso / win95b / wb32-96a.zip / WAV.MN_ < prev    next >
Text File  |  1995-08-17  |  369b  |  14 lines
  1. Play this Wave File
  2.      filename = CurrentFile()
  3.      PlayWaveForm( filename, 1)
  4. Play all selected Wave File(s)
  5.      waves=FileItemize("")
  6.      count=ItemCount(waves,@tab)
  7.      for i=1 to count
  8.          wf=ItemExtract(i,waves,@tab)
  9.          wfe=strupper(FileExtension(wf))
  10.          if wfe!="WAV" then continue
  11.          PlayWaveForm(wf,0)
  12.       next     
  13.  
  14.